home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / ovrsub.com / DEMO.PAS next >
Encoding:
Pascal/Delphi Source File  |  1990-01-05  |  897 b   |  45 lines
  1. program Demo;
  2. { Demo program for OvrSub }
  3. uses
  4.   Dos, Overlay, DemoUnit, OvrSub;
  5.  
  6. {$O DemoUnit}
  7.  
  8. procedure CallOverlay (OvrName : string);
  9. var
  10.   Result : Word;
  11. begin
  12.   Writeln ('Using overlay file ',OvrName);
  13.  
  14.   {Open overlay file, initialize overlay manager}
  15.   OvrInit(OvrName);
  16.   if OvrResult <> 0 then begin
  17.     Writeln('OvrInit error: ', OvrResult);
  18.     Halt(1);
  19.   end;
  20.  
  21.   {Adjust static dispatchers}
  22.   Result := OvrSubstitute(True,False,True,True);
  23.   if Result <> 0 then begin
  24.     Writeln('OvrSubstitute error: ', Result);
  25.     Halt(1);
  26.   end;
  27.  
  28.   {Call procedure in overlaid unit}
  29.   DemoProc (OvrName);
  30.  
  31.   {Close overlay file}
  32.   Result := OvrClose;
  33.   if Result <> 0 then begin
  34.     Writeln('OvrClose error: ', Result);
  35.     Halt(1);
  36.   end;
  37.   Writeln (OvrName, ' closed');
  38.   Writeln;
  39. end;
  40.  
  41. begin
  42.   CallOverlay ('1.OVR');
  43.   CallOverlay ('2.OVR');
  44. end.
  45.